Delphi Magazine Collection 2001/Delphi Magazine Collection 20001 (2001).iso/DISKS/ISSUE03/CLINIC/LISTING4.PAS

Pascal/Delphi Source File | 1995-07-28 | 248 b | 9 lines

var InstID: THandle;
begin
  InstID := WinEXec(CmdLine, CmdShow);
  Result := InstID >= hInstance_Error;
  if Result then
    repeat
      Application.ProcesssMessages;
    until (GetModuleUsage(InstID) = 0) or Application.Terminated;
end;